home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / amicvs1-0.lha / AmiCVS / emacs / lisp-adds / user-lisp / pcl-cvs-settings.el next >
Encoding:
Text File  |  1994-11-04  |  1.1 KB  |  36 lines
  1. (autoload 'cvs-update "pcl-cvs"
  2.       "Run a 'cvs update' in the current working directory. Feed the
  3. output to a *cvs* buffer and run cvs-mode on it.
  4. If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run."
  5.       t)
  6.  
  7. ;;; *** redefinition of system specific variables ***
  8. (setq cvs-program        "GNU:AmiCVS/bin/cvs")
  9. (setq cvs-diff-program        "rcs:bin/diff")
  10. (setq cvs-rm-program        "c:delete")
  11. (setq cvs-shell            "bin:sh")
  12. (setq cvs-tempdir        "T:")
  13.  
  14.  
  15. ;;; *** some support functions ***
  16. (defvar cvs-header-file (expand-file-name "CVSROOT:CVSheaders/")
  17.   "File name to load cvs header.")
  18.  
  19. (defun cvs-insert-header (&optional file)
  20.   "Inserts a cvs header from FILE to top of the current buffer.
  21. If FILE is nil, you are ask for a file name"
  22.   (interactive)
  23.   (if (null file)
  24.       (setq file
  25.         (read-file-name "Load cvs header from file: " 
  26.                 cvs-header-file
  27.                 cvs-header-file t)))
  28.   (setq cvs-header-file file)
  29.   (goto-char (point-min))
  30.   (insert-file cvs-header-file))
  31.  
  32.  
  33. ;;; *** global key bindings to simplify invocation of cvs
  34. (global-set-key "\C-cu" 'cvs-update)
  35. (global-set-key "\C-ci" 'cvs-insert-header)
  36.